home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOC.DIR / 00017_Script_tour idle < prev    next >
Text File  |  1995-11-21  |  760b  |  35 lines
  1. --on idle
  2. --  showhiliteNew 2,6,49,307
  3. --  showhiliteNew 16,17,2,307   
  4. --  go to the frame
  5. --  unload (the frame)-4,(the frame)-1
  6. --  pass
  7. --end idle
  8.  
  9. on exitFrame
  10.   
  11.   if the commandDown or (the controlDown and the machineType = 256) then 
  12.     go to the frame
  13.     exit
  14.   end if
  15.   
  16.   showhiliteNew 16,17,2,307  
  17.   
  18.   set f = the frame
  19.   --  repeat while rollOver(20)
  20.   set int = SpecialRollOver(1,4)
  21.   
  22.   -- send the intersecting channel and the offest to the artwork
  23.   -- new one has line of the property list
  24.   if int <> 0 then 
  25.     showhilite2New (48+int),int, 6, 307
  26.     if f <> the frame then exit 
  27.   end if
  28.   
  29.   --  end repeat
  30.   
  31.   showhiliteNew 6,6,53,307,1 -- fiorella button
  32.   
  33.   go to the frame
  34.   pass
  35. end exitFrame